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MODULE INIMTA (LANGUAGE (B11S§32) 
IDENT = *VO4=000" 


BEGIN 


See Ree REAR A AEE RARE AREAAAAARERE RARE AATE AAA EREHAAREKEREREKREREREERE EEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH OF SUCH LICENSE AND WITH THE 


* 

® 

* 

® 

” 

® 

® 

& 

i RO ‘ 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARt IS HEREBY * 
ie TRANSFERRED. : 
® 

is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

oe 

*® 

® 

® 

® 

*® 

* 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
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FACILITY: MTAACP 

i ABSTRACT: 

: One time initialization for mtaACP 

ENVIRONMENT : 

i Starlet operating system, including privileged system services 
and internal exec routines. 

- 

‘ 

1 

: AUTHOR: D. H. GILLESPIE, CREATION DATE: 25-MAY-77 15:00 
MODIFIED BY: 

i v02=005 DMw00076 David Michael Walp 8-F eb-1982 
Store away the ACP's usersname and account name 

i v02-004 pMw00013 David Michael Walp 14-Mar-1981 
Changed calculation of CCB address to GET_CCB 

i v02-003 KDM0037 Kathleen D. Morse 12-Feb-1981 

: Change non-kernel mode references to SCHS$GL_CURPCB to 
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1erSep-1986 3:28:27 EntaacessReSinimtacese: 


use CTLSGL_PCB instead. 
V02-002 REFORMAT Maria del C. Nasr 30-Jun-1980 
i 


LIBRARY ‘SYSSLIBRARY:LI8.L32'; 
REQUIRE 'SRCS$:MTADEF .B32'; 


Dummy vectors to bracket the locked down code and data psects. 


PSECT 
OWN = SLOCKEDCOS(NOWRITE, EXECUTE, ALIGN (9)); 
OWN 
L_CODE_START : VECTOR (0I; 
PSECT 
OWN = SLOCKEDCOS(NOWRITE, EXECUTE, ALIGN (2)); 
L_CODE_END : VECTOR COI; 
PSECT 
OWN = SLOCKEDDOS; 
OWN 
L_DATA_START : VECTOR COI; 
PSECT 
OWN = $LOCKEDD9S; 
OWN 
L_DATA_EN> : VECTOR (CO); 
PSECT 


OWN = SLOCKEDD1$; 


z 
~ 
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16-Sep-1984 02:22:54 AX-11 Bliss-32 V4.0-74 P 
17360-1984 93:2 741 UMTAACPSRe INIMTA.B32; a (23 


<i 
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GLOBAL ROUTINE INIT_MTAACP : NOVALUE = 


'e4 


1 
FUNCTIONAL DESCRIPTION: 
One time initialization of mtaACP 


CALLING SEQUENCE: 
INIT_MTAACP(), in kernel mode 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
10 data base 


OUTPUT PARAMETERS: 
none 
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NAUSEA OO OONOUE Win 


IMPLICIT OUTPUTS: 
HANNEL : channel # for 1/0 
MATL_ CHANNEL : channel # for mailbox 


QUEUE _HEAD : ACP queue List head 
FREE_PAGE_HEAD : initialized to be empty 
LAST_PAGE : 0 (not determined yet) 


ROUTINE VALUE: 
none 


SIDE EFFECTS: 
none 


i et et ee ee te te te 


BEGIN 


EXTERNAL 
CTLS$T_USERNAME : ADDRESSING_MODE (ABSOLUTE), 
CTL$T_ACCOUNT : ADDRESSING_MODE (ABSOLUTE); 
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L 

! store ws | the username and account name of the ACP 

! use the size of the Volume Virtual Page ( which has been checked 
against the JIB definations 


ACP_USERNAME : VECTOR f VVP$S_USERNAME, BYTE _J, 
ACP-ACCOUNT : VECTOR C VVP$S-ACCOUNT, BYTE J; 


LOCAL 


=O OO NOUS WUD CO OONOUES WIN "OOO NOAUS WN OOM 


IA APOPOPOPONPONONY 


SYSEXV : VECTOR (2), ! system exception handlers 
AQB : REF BBLOCK, ! pointer to scan AQB List 
CCB : REF BBLOCK; ' pointer to channel control block 


MSGSIZE = 128 
PROTECTION = £x'0000'; 
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SEARS 


LITERAL | 
| 
| 
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probe $Sikeie1 — Eataneeesaesiaentaosot age 12) 
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EXTERNAL 
10_ CHANNEL 


K_U 
1OC$GL_AQBLIST 
FREE_PAGE_HEAD 


BLOCK, ! channel # for 1/0 
BLOCK, ! UCB address of eA nal 
ys K ADDRESSING_MODE (ABSOLUTE), : 

TOR (2), ! address of two long words which are 

! the free page List head 


AACOUIVIVN 


LAST_PAGE, ' Last page in program region 
MAIL_CHANNEL, ' channel # for mailbox 
QUEUE _HEAD : REF BBLOCK ueue head 


° ' address of h 
CTLSGC_PCB : REF BBLOCK ADDRESSING_MODE ABSOLUTE); 


! address of current PCB 
se ROUTINE 
SYSSASSIGN : ADDRESSING_MODE (ABSOLUTE), ' assign device 

SYSSCREMBX : ADDRESSING_MODE (ABSOLUTE), ! create a mailbox 

GET_CCB; ! get the address of the CCB 


disable the kernel exception vectors 


SSETEXV(VECTOR = 0, ACMODE = EXEC_MODE, PRVHND = SYSEXVC0]); 


SSETEXV(VECTOR = 1. ACMODE = EXECTMODE, PRVHND = SYSEXVL1]): 


! seeee for debug: if the previous handler addresses are found to be in 
process space, put them back since they belong to the debugger 


OOOO NNN NNN NSO 


wn 


2 
2 
2 
2 
; 
§ ees GTR 0 
66 § SSETEXV(VECTOR = 0, ACMODE = EXEC_MODE, ADDRES = .SYSEXV(0]); 
§ IF .SYSEXVC1) GTR 0 
§ SSETEXV(VECTOR = 1, ACMODE = EXEC_MODE, ADDRES = .SYSEXVL[1]); 
2 Find the yer header for this ACP by searching the system AQB List | 
2 for an AQB with a matching PID. Then assign a channel to ‘sys$disk’ (as 
2 ood a device as any) and record the channel number. Said channel number 
§ s used for all 1/0 - it is oss tones to the right device simply by 
stuffing the UCB pointer in the CCB. Also save the UCB address in the 
; yee so that it can be restored to properly deassign the channel when 
we exit. 
! 
2 AQB = .1OC$GL_AQBLIST; 
the -AQB EQL 0 OR .AQBCAQBSL_ACPPID] EQL .CTLSGL_PCBCPCBS$L_PID) 
AQB = .AQBCAQBSL_LINKI; 
IF .AQB NEQ 0 
THEN 
QUEUE_HEAD = .AQB 
SEXIT(CODE = SS$_NOAQB); 


! Now lock some code and data into the working set. Some is necessary 
inorder to raise IPL. 
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INIMTA 1b-se 1984 02:22:54 AX-11 Bliss-32 V4.0-74 Page 5. 
v04-000 1er3epn 188 93ikb:01 — ERTAACP’SRESINGMYA O3o09 25 
; 213 595 SADJWSL(PAGCNT = -10000); ' adjust working set to minimum 
: 13 38 Oe = 64); ! then add desired size 
: 216 238 
: 217 599 LOCAL | 
; 18 600 STATUS; | 
; 9 060¢ STATUS = SLKWSET(INADR = UPLIT (L_CODE_START, L_CODE_END)); 
; : 0604 IF NOT .STATUS | 
; 0605 THEN 
i 9¢h 9606 SEXIT(CODE = .STATUS)); | 
Bae 
: 228 0610 LOCAL 
: é 3 0611 STATUS; | 
; 331 Ost § STATUS = SLKWSET(INADR = UPLIT (L_DATA_START, L_DATA_END)); | 
: 335 0615 IF NOT .STATUS | 
: 235 Role SEXIT(CODE = .STATUS); | 
Loe es BE Bm 
: 239 0621 MAIL_CHANNEL = 0; 
: 240 06 : | 
; gal 0625 BEGIN 
; $08 0625 LOCAL 
; gu 0626 STATUS; 
; 346 0628 STATUS = SYSSCREMBX(0, MAIL_CHANNEL, MSGSIZE, 0, PROTECTION, EXEC_MODE, 0); 
; 348 0680 IF NOT .STATUS 
; 356 065¢ SEXIT(CODE = STATUS); | 
; 252 0634 END; 
; 32 0635 
3 23 st} setup free page header | 
; 6 0638 FREE _PAGE_HEADEO] = FREE_PAGE_HEAD; 
> 25 FREE-PAGE-HEADL1) = FREE~PAGE HEAD: 
; 38 0640 LAST~PAGE= 0; 
: 3 Bots assign channel for I/0 and create a mailbox to communicate with operator 
; 262 Ose 10_CHANNEL = 0; ! clear upper word 
; 264 0646 IF NOT SYSSASSIGN(DESCRIPTOR(*SYSSSYSTEM"), IO_CHANNEL, EXEC_MODE, 0) 
; 66 i BUG_CHECK(NOACPCHAN) ; 
: 268 50 CCB = GET_CCB ( -1O,CHANNEL ); 
> 269 0651 DISK_UCB = .CCBCCCBSL_uCB); 
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3 
INIMTA 1986 02:22:54  VAX=11 Bliss-32 v4.0-74 
v04-000 opr oke $Sicece1 Bees Taint ¢ 


0-7 
MTAACP.SRCJINIMTA.B32; 


; 270 

: a! ee tone the transition bit in the AQB to tell MOUNT that we are alive and 
o . Ww 8 

Ge se 5 ! 

3 a 0656 QUEUE _HEADCAQBSV_CREATING) = 0; 

: 7 0658 ! stuff away the ACP'’s account and username ( used to restore from after a 
3 As +84 ; request is made to the operator ) 

: 279 0661 CHSMOVE ( VVPSS_USERNAME, CTLST_USERNAME, ACP_USERNAME ); 

: 280 Bog CHSMOVE ( VVPSS"ACCOUNT, CTLST_ACCOUNT, ACPLA ACCOUNT ): 

; 281 0663 1 END; '“end of routine 


-TITLE INIMTA 
-IDENT \v04-000\ 


-PSECT S$CODES,NOWRT,2 


S9HH00: SSQQSRE: 99888 E-kua: -sBBRESS L-SOHE STAR. {6006-8 
4D 45 54 53 59 ggoo 24 9¢ 00010 P.AAD: aia \Eneesy STEM niin SEE 
0001A -BLKB 2 
0000000A 0001C P.AAC: <LONG 10 
00000000' 00020 ;ADDRESS P.AAD 


-PSECT SLOCKEDD9$,NOEXE,2 


00000 L_DATA_END: 
-BLKB OO 


-PSECT $LOCKEDDOS,NOEXE,2 


00000 L_DATA_START: 
.BLKB OO 


-PSECT S$LOCKEDC9S,NOWRT,2 


00000 L_CODE_END: 
.BLKB 0 


~PSECT S$LOCKEDCOS,NOWRT,9 


00000 L_CODE_START: 
-BLKB 0 


-PSECT $LOCKEDD1$,NOEXE ,2 
00000 ACP_USERNAME: : 


0000C ACP_ACCOUNT: : 
-BLKB 


8 

CTL$T_USERNAME, CTL$T_ACCOUNT 
-EXTRN IO CHANNEL, DI CB” 

lorset AQBLIST, FREE PAGE HEAD 
-EXTRN LAST_PAGE, MAIL _ CHANNEL 


Page 


3 
1b-se =1984 02:22:54 AX-11 Bliss-32 V4.0-742 Pa 7 
12-8 08- 1 3be 96:28:24 MTAACP.SRCJINIMTA.B32:1 9 02) 
JEXTRN QueEvE HEAD, CTL$GL_PCB 
eEXTRN SYSSASSIGN, 31 S$CRERBX 
“EXTRN GET CCB, SYSSSETEXV 
SEXTRN SYSSEXIf, SYSSADJWSL 
-EXTRN SYSSLKWSET, BUGS_NOACPCHAN 
-PSECT $CODE$,NOWRT,2 
OFFC 00000 ENTRY INIT MTAACP, Save R2,R3,R4,R5,R6,R7,RB,R9,- ; 0481. 
00G CF 9E 0000 MOVAB 10 CHANNEL, R11 : | 
4: ff 9E B88 MOVAB FREE_PAGE_HEAD, R10 : 
G 00 9E BO MOVAB SYSSCKWSET, : 
006 00 9€ 0001 MOVAB SYSSADJWSL. R : 
006 00 9E OOO1A MOVAB SYSS$SETEXV, R : 
006 00 9 990 1 HOVAB SYSSEXIT, R : 
08 C2 00028 SUBL2 #8, S : 
E DD 00028 PUSHL SP + 0557) 
01 DD 00020 PUSHL #1 : 
7E 7C 0000F CLRQ. = =(SP) : | 
04 FB 00031 CALLS #4, SYSSSETEXV : 
04 AE 9F 00034 PUSHAB SYSEXV+4 > 0558 
01 DD 00037 PUSHL #1 : 
01 7D 00039 MOVa. #1, -(SP) : 
04 FB 0003¢ CALLS #4, SYSSSETEXV : 
6E D5 0003F TSTL SYSEXV > 0564 | 
0B 15 00041 BLEQ =«'1$ ; 
01 7D 00043 MOV #1, =-(SP) ; 0566, 
08 AE DD 00046 PUSHL SYSEXV ; 
7E D4 00049 CLRL. = SP) : 
04 FB 00048 CALLS #4, SYSSSETEXY : 
04 AE D5 0004 18: TSTL = SYSEXV#4 > 0568 | 
0B 15 00051 BLEG ~=-.2$ ; 
01 7D 00053 MOVQ #1, =(SP) : 0570 
OC AE dD 00056 PUSHL SYSEXV+4 : 
01 DD 00059 PUSHL #1 ; 
67 04 FB 0005B CALLS #4, SYSSSETEXV ; 
51 000000006 9F D O05 a8: MOVL  @#f0CSGL_AQBLIST, AQB : 0580 
14 13 00065 3$: BEQL 4$ > 0582 
50 000000006 9F D0 00067 MOVL § a#CTLS$GL_PCB, RO : 
60 Ad OC Al D1 006 CMPL  12(AQB), ~96(RO) ; 
06 13 000 BEQL 4$ ; 
51 10 Al 00 0007 MOVL  16(AQB), AQB > 0584 
FA 11 9079 BRB 3$ : 
1 D3 7B 4$ TSTL AQB > 0586 | 
07 13 0007D BEQL «=séSSS F 
00006 CF 1 00 0007F MOVL  AQB, QUEUE_HEAD : 0588 
08 11 00084 BRB : 
7E 0314 8F 3C 00086 S$: MOVZWL #788, -(SP) > 0590 
bas 1 FB 00088 CALLS #1, SYSSEXIT : 
E ps OO8E 6$: CLRL = §P) > 0595 
Ze DBFO BE 32 00 CVTWL © #-10000, =(SP) ; | 
6 92 FB 00095 CALLS #2, SYS$SADJWSL : | 
E bs 9096 CLRL -(SP) : 0596 | 
7 40 8F 9A OOO9A MOVZBL ugh, -(SP) : 
6 2 FB O09 CALLS #2, SYSSADJWSL : 
—E 7C OOOA CLRO 0. = (§P) > 0602 | 


000000006 


04 


000000006 
00006 
00006 


14 
0000* CF 000000006 
0000° CF 000000006 


; Routine Size: 307 bytes, Routine 


: see 0664 1 

: & 0665 1 END 

: see pees 1 

; 285 667 0 ELUDOM 


Bytes 


FF35 F OF 
2 i 
5 E 
66 1 Fe 
iE 7c 
69 FF2C gf 44 
05 50 £8 
0 0D 
66 01 FB 
00906 CF bs 
7E 1 7D 
Ee 7¢ 
7 80 8F 9A 
0000G CF OF 
, a 
05 36 £8 
50 0D 
66 01 FB 
6A 6A YE 
AR 6A 9E 
0000G CF D4 
6B D4 
7E 01 7D 
5B OD 
FEFD CF 9F 
oF 04 F 
04 50 € 
FEFF 
0000* 
6B DD 
CF 01 FB 
cF 60 00 
50 00006 CF DO 
AO 08 8A 
9 OC 28 
08 28 
04 


Base: SCODES + 0024 
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Attributes 


3 
w$p=1986 13:46: 


54 ae Bliss-32 V 
41 MTAACP. SRCJINIMT 
P, AAA 

a3 SYSSLKWSET 
status, $ 


STATU 
#1, SYSSEXIT 
-(§p) 


P.AAB 
#3, SYSSLKWSET 
STATUS, 8$ 
STATU 
#1, SYSSEXIT 
MAIL_ CHANNEL 
#1, =(SP) 
7(3h 
#128, -(SP) 
MAIL. CHANNEL 
#7, a#SYSSCREMBX 
TATUS, 9$ 
SYSSEXIT 
E_PAGE_HEAD, FREE_PAGE_HEAD 
E"PAGE-HEAD, FREE~PAGEHEAD+4 
PAGE 
” CRANNEL 
-(SP) 


- AAC 
#4, Q@#SYSSASSIGN 
RO, 10$ 


<BUGS_NOACPCHAN! 4> 
CHANNEL 


10_ 

#1, GET_CCB 

(CCB), BISK_UCB 

QUEUE _HEAD, RO 
20(RO) 


#8, @#CTLST_ACCOUNT, ACP_ACCOUNT 


#15, @#CTLST_USERNAME, ACP_USERNAME 


Pe Se Se Se Ge Ge Se Se Se Se Se Be Se Be Se Be Be Se Be Be Se Fe Se Ge Ge Be Be Fe Se Be Se Ge Be Fe Fe Ge Fe Be Ge Se 


3 
CHM W:GEstt WAL SRNR: b 


NOVEC, a aed RD, Heat peg LCL, REL, CON,NOPIC,ALIGN(9) 
NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
St OCKEDBOS NOVEC, URT: RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SLOCKEDD9OS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
9S 20 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODE 343 NOVEC, ‘NOWRT. RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
oooccee “= Symbols -<------- Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBILIB.L32;1 18619 16 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$: INIMTA/OBJ=OBJ$:INIMTA MSRC$: INIMTA/UPDATE=(ENHS$: INIMTA) 
Size: eal 1 fi ; 56 data bytes 


fleeces’ fines 00:23. 
Lines/CPU Min: 560" 
Lexenes/CPU-Rin: 23345 
ponecy Ue pages 
Compi Bs mnt cemutaie 


=r 


7 
MTAACP.SRCJINIMTA.B32; 


LOC 
VAX 
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